Aminet 21/Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso/Aminet/util/arc/GNUtar15.lha/GNUtar/source.LHA/source/msd_dir.c

C/C++ Source or Header | 1995-09-16 | 4.4 KB | 230 lines

/*
 * @(#)msd_dir.c 1.4 87/11/06    Public Domain.
 *
 *  A public domain implementation of BSD directory routines for
 *  MS-DOS.  Written by Michael Rendell ({uunet,utai}michael@garfield),
 *  August 1897
 */

#include    <sys/types.h>
#include    <sys/stat.h>
#include    "msd_dir.h"
#ifndef __TURBOC__
#include    <malloc.h>
#else
#include    <stdlib.h>
#endif
#include    <string.h>
#include    <dos.h>

#ifndef    NULL
# define    NULL    0
#endif /* NULL */

#ifndef    MAXPATHLEN
# define    MAXPATHLEN    255
#endif /* MAXPATHLEN */

/* attribute stuff */
#define    A_RONLY        0x01
#define    A_HIDDEN    0x02
#define    A_SYSTEM    0x04
#define    A_LABEL        0x08
#define    A_DIR        0x10
#define    A_ARCHIVE    0x20

/* dos call values */
#define    DOSI_FINDF    0x4e
#define    DOSI_FINDN    0x4f
#define    DOSI_SDTA    0x1a

#define    Newisnull(a, t)        ((a = (t *) malloc(sizeof(t))) == (t *) NULL)
/* #define    ATTRIBUTES        (A_DIR | A_HIDDEN | A_SYSTEM) */
#define ATTRIBUTES    (A_RONLY | A_SYSTEM | A_DIR)

/* what find first/next calls look use */
typedef struct
  {
    char d_buf[21];
    char d_attribute;
    unsigned short d_time;
    unsigned short d_date;
    long d_size;
    char d_name[13];
  }

Dta_buf;

static char *getdirent ();
static void mysetdta ();
static void free_dircontents ();

static Dta_buf dtabuf;
static Dta_buf *dtapnt = &dtabuf;
static union REGS reg, nreg;

#if    defined(M_I86LM)
static struct SREGS sreg;
#endif

DIR *
opendir (name)
     char *name;
{
  struct stat statb;
  DIR *dirp;
  char c;
  char *s;
  struct _dircontents *dp;
  char nbuf[MAXPATHLEN + 1];

  if (stat (name, &statb) < 0 || (statb.st_mode & S_IFMT) != S_IFDIR)
    return (DIR *) NULL;
  if (Newisnull (dirp, DIR))
    return (DIR *) NULL;
  if (*name && (c = name[strlen (name) - 1]) != '\\' && c != '/')
    (void) strcat (strcpy (nbuf, name), "\\*.*");
  else
    (void) strcat (strcpy (nbuf, name), "*.*");
  dirp->dd_loc = 0;
  mysetdta ();
  dirp->dd_contents = dirp->dd_cp = (struct _dircontents *) NULL;
  if ((s = getdirent (nbuf)) == (char *) NULL)
    return dirp;
  do
    {
      if (Newisnull (dp, struct _dircontents) || (dp->_d_entry =
             malloc ((unsigned) (strlen (s) + 1))) == (char *) NULL)
    {
      if (dp)
        free ((char *) dp);
      free_dircontents (dirp->dd_contents);
      return (DIR *) NULL;
    }
      if (dirp->dd_contents)
    dirp->dd_cp = dirp->dd_cp->_d_next = dp;
      else
    dirp->dd_contents = dirp->dd_cp = dp;
      (void) strcpy (dp->_d_entry, s);
      dp->_d_next = (struct _dircontents *) NULL;
    }
  while ((s = getdirent ((char *) NULL)) != (char *) NULL);
  dirp->dd_cp = dirp->dd_contents;

  return dirp;
}

void
closedir (dirp)
     DIR *dirp;
{
  free_dircontents (dirp->dd_contents);
  free ((char *) dirp);
}

struct dirent *
readdir (dirp)
     DIR *dirp;
{
  static struct dirent dp;

  if (dirp->dd_cp == (struct _dircontents *) NULL)
    return (struct dirent *) NULL;
  dp.d_namlen = dp.d_reclen =
    strlen (strcpy (dp.d_name, dirp->dd_cp->_d_entry));
  strlwr (dp.d_name);        /* JF */
  dp.d_ino = 0;
  dirp->dd_cp = dirp->dd_cp->_d_next;
  dirp->dd_loc++;

  return &dp;
}

void
seekdir (dirp, off)
     DIR *dirp;
     long off;
{
  long i = off;
  struct _dircontents *dp;

  if (off < 0)
    return;
  for (dp = dirp->dd_contents; --i >= 0 && dp; dp = dp->_d_next)
    ;
  dirp->dd_loc = off - (i + 1);
  dirp->dd_cp = dp;
}

long
telldir (dirp)
     DIR *dirp;
{
  return dirp->dd_loc;
}

static void
free_dircontents (dp)
     struct _dircontents *dp;
{
  struct _dircontents *odp;

  while (dp)
    {
      if (dp->_d_entry)
    free (dp->_d_entry);
      dp = (odp = dp)->_d_next;
      free ((char *) odp);
    }
}

static char *
getdirent (dir)
     char *dir;
{
  if (dir != (char *) NULL)
    {                /* get first entry */
      reg.h.ah = DOSI_FINDF;
      reg.h.cl = ATTRIBUTES;
#if    defined(M_I86LM)
      reg.x.dx = FP_OFF (dir);
      sreg.ds = FP_SEG (dir);
#else
      reg.x.dx = (unsigned) dir;
#endif
    }
  else
    {                /* get next entry */
      reg.h.ah = DOSI_FINDN;
#if    defined(M_I86LM)
      reg.x.dx = FP_OFF (dtapnt);
      sreg.ds = FP_SEG (dtapnt);
#else
      reg.x.dx = (unsigned) dtapnt;
#endif
    }
#if    defined(M_I86LM)
  intdosx (®, &nreg, &sreg);
#else
  intdos (®, &nreg);
#endif
  if (nreg.x.cflag)
    return (char *) NULL;

  return dtabuf.d_name;
}

static void
mysetdta ()
{
  reg.h.ah = DOSI_SDTA;
#if    defined(M_I86LM)
  reg.x.dx = FP_OFF (dtapnt);
  sreg.ds = FP_SEG (dtapnt);
  intdosx (®, &nreg, &sreg);
#else
  reg.x.dx = (int) dtapnt;
  intdos (®, &nreg);
#endif
}